Old Testament Foundatiosn with Philip Yancey/Old Testament Foundatiosn with Philip Yancey - Disc 2.iso/pc/data/notes.dir/00001_mscr1.ls

Text File | 1996-09-09 | 4.1 KB | 159 lines

on startMovie
  global gOnIBM, gNotesDirectoryPath, gOpenNote, gFeedbackName, gOldNoteName, gHelpSaveWindow, gHelpWindow
  set gOpenNote to 0
  put EMPTY into field "notes"
  set gOldNoteName to EMPTY
  set gFeedbackName to EMPTY
  if objectp(gHelpSaveWindow) then
    forget(gHelpSaveWindow)
  end if
  if objectp(gHelpWindow) then
    forget(gHelpWindow)
  end if
  identifyPlatform()
end

on searchCurrentFolder
  global gFileList, gNumberOfItems, gNotesDirectoryPath
  set gFileList to []
  repeat with x = 1 to the maxinteger
    set n to getNthFileNameInFolder(gNotesDirectoryPath, x)
    if n = EMPTY then
      set gNumberOfItems to x - 1
      exit repeat
      next repeat
    end if
    append(gFileList, n)
  end repeat
end

on putFilesToField
  global gFileList, gNumberOfItems, gNotesDirectoryPath
  repeat with x = 1 to gNumberOfItems
    if x = 1 then
      put getAt(gFileList, 1) into field "noteslist"
      next repeat
    end if
    put RETURN & getAt(gFileList, x) after field "noteslist"
  end repeat
end

on putExistingFilesToField
  global gFileList, gNumberOfItems, gNotesDirectoryPath, gOldNoteName
  repeat with x = 1 to gNumberOfItems
    if x = 1 then
      put getAt(gFileList, 1) into field "existingNotes"
      next repeat
    end if
    put RETURN & getAt(gFileList, x) after field "existingNotes"
  end repeat
  put gOldNoteName into field "newnotename"
end

on readNote
  global gOldNoteName, gNotesDirectoryPath, gReadFile, gOnIBM, gOverSize
  if gOnIBM then
    set mypath to gNotesDirectoryPath & "\" & gOldNoteName
  else
    set mypath to gNotesDirectoryPath & ":" & gOldNoteName
  end if
  set gReadFile to FileIO(mnew, "read", mypath)
  if not objectp(gReadFile) then
    exit
  end if
  set mySize to gReadFile(mGetLength)
  if mySize >= 28000 then
    gReadFile(mdispose)
    set gOverSize to 1
  else
    set myData to gReadFile(mReadFile)
    gReadFile(mdispose)
    put myData into field "notes"
  end if
end

on saveNote
  global gOpenNote, gNoteFile, gOldNoteName, gNotesDirectoryPath, gOnIBM, gFeedbackName
  if gOnIBM then
    set mypath to gNotesDirectoryPath & "\"
  else
    set mypath to gNotesDirectoryPath & ":"
  end if
  if gOpenNote then
    set mypath to mypath & gOldNoteName
    set gNoteFile to FileIO(mnew, "write", mypath)
    set myText to the text of field "notes"
    gNoteFile(mWriteString, myText)
    gNoteFile(mdispose)
    set gFeedbackName to gOldNoteName
    go("savefeedback")
  else
    put gOldNoteName into field "newnotename"
    go("saveas")
  end if
end

on resetNoteTaking
  global gOpenNote, gOldNoteName, gFeedbackName
  set gOpenNote to 0
  put EMPTY into field "notes"
  set gOldNoteName to EMPTY
  set gFeedbackName to EMPTY
end

on checkNewname
  global gMyNewNoteName, gOldNoteName, gNumberOfItems
  set saveFile to 1
  if line 1 of field "newnotename" = EMPTY then
    go("emptyField")
    exit
  end if
  if line 1 of field "newnotename" = gOldNoteName then
    set gMyNewNoteName to line 1 of field "newnotename"
    go("saveasAlert")
    exit
  end if
  repeat with x = 1 to gNumberOfItems
    if line 1 of field "newnotename" = line x of field "existingNotes" then
      set saveFile to 0
      next repeat
    end if
    nothing()
  end repeat
  if saveFile then
    set gMyNewNoteName to line 1 of field "newnotename"
    saveAsNote()
  else
    set gMyNewNoteName to line 1 of field "newnotename"
    go("saveasAlert")
  end if
end

on saveAsNote
  global gMyNewNoteName, gNoteFile, gOnIBM, gNotesDirectoryPath, gFeedbackName
  if gOnIBM then
    set mypath to gNotesDirectoryPath & "\" & gMyNewNoteName
  else
    set mypath to gNotesDirectoryPath & ":" & gMyNewNoteName
  end if
  set gNoteFile to FileIO(mnew, "write", mypath)
  set myText to the text of field "notes"
  gNoteFile(mWriteString, myText)
  gNoteFile(mdispose)
  set gFeedbackName to gMyNewNoteName
  go("savefeedback")
end

on closeWindow
  global gOnIBM, gNotesDirectoryPath, gOpenNote, gFeedbackName, gOldNoteName, gHelpSaveWindow, gHelpWindow, gNotesWindow
  if objectp(gHelpSaveWindow) then
    forget(gHelpSaveWindow)
  end if
  if objectp(gHelpWindow) then
    forget(gHelpWindow)
  end if
  if objectp(gNotesWindow) then
    forget(gNotesWindow)
  end if
end